home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Help / Quick Start.tcl < prev    next >
Encoding:
Text File  |  2000-12-14  |  1.6 KB  |  46 lines
  1. ## -*-Tcl-*-
  2.  # ==========================================================================
  3.  #  Help Files
  4.  # 
  5.  #  FILE: "Quick Start.tcl"
  6.  #                                    created: 00-10-30 12.38.57 
  7.  #                                last update: 00-12-14 20.01.46 
  8.  #  Description: 
  9.  #  
  10.  #  Script to open the Quick Start url in a browser from Alpha's Help menu.
  11.  #  
  12.  #  Donavan Hall has created an Alpha support web site which includes a
  13.  #  FAQ, some Quick Start items, tutorials, and other goodies useful for
  14.  #  both new users and Alpha developers.
  15.  #  
  16.  #  The preference "alphaHelpUrl" can set the base url for this site, in
  17.  #  case it is mirrored elsewhere.  Note that we don't pay attention to the
  18.  #  "helpMenuOptions" variable, because the html file is a remote link
  19.  #  rather than a local page -- the content is also different, so we give
  20.  #  users the explicit option whenever "Quick Start" is selected.
  21.  # 
  22.  #  Author: Craig Barton Upright
  23.  #  E-mail: <cupright@princeton.edu>
  24.  #    mail: Princeton University, Department of Sociology
  25.  #          Princeton, New Jersey 08544
  26.  #     www: <http://www.princeton.edu/~cupright>
  27.  #  
  28.  # ==========================================================================
  29.  ##
  30.  
  31. if {![info exists alphaHelpUrl] || $alphaHelpUrl == ""} {
  32.     set alphaHelpUrl "http://magnet.fsu.edu/~hall/docscripting/alpha/"
  33. } 
  34.  
  35. set options [list \
  36.   "Open Quick Start file" \
  37.   "Open Quick Start www link" \
  38.   ]
  39. #set option [listpick -p "Quick Start options …" $options]
  40.  
  41. if {1 || $option == "Open Quick Start file"} {
  42.     help::openDirect "Quick Start"
  43. } else {
  44.     url::execute ${alphaHelpUrl}manual/quickstart/index.html
  45. } 
  46.